home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / demo.gc next >
Text File  |  1999-05-14  |  3KB  |  111 lines
  1. G4C
  2.  
  3. ; Demo.gc
  4. ; a simple gui to launch stuff..
  5.  
  6. WINBIG -1 -1 310 164 Demo.gc
  7. WinType 11110001
  8. ShareMenu gcmenu.g   ; share menus with this gui
  9.  
  10. xOnLoad
  11.     ifexists assign guis:
  12.        ; ok
  13.     else
  14.        extract demo.gc guipath g4cpath
  15.        assign guis: $g4cpath
  16.        cli 'c:path guis:c add'
  17.     endif
  18.     guiload guis:tools/gcmenu.g  ; load the gui with the menus
  19.     GuiOpen Demo.gc
  20.  
  21. xOnClose
  22.     guiclose demo.gc
  23.     setgad demo.gc 20 ON
  24.  
  25. xAppIcon -1 -1 :Gui4Cli 'G4C Demo' '' OFF
  26.     gadid 20
  27.     guiopen demo.gc
  28.     setgad demo.gc 20 OFF
  29.  
  30. BOX 0 0 0 0 out button
  31. ICON 219 9 :gui4cli
  32. CTEXT 15 9 "Might as well.." #screen 8 2 0 "0011"
  33.  
  34. TEXT 12 24 195 15 "Read the ReadMe" 40 BOX
  35.     gadid 1
  36.     XBUTTON 210 24 91 15 "ReadMe"
  37.     update demo.gc 1 Loading...
  38.     *FILENAME = guis:readme.now
  39.     guiload guis:tools/read.gc
  40.     Update demo.gc 1 'Read the ReadMe'
  41.  
  42. TEXT 12 39 195 15 "Read the Guide" 40 BOX
  43.     gadid 2
  44.     XBUTTON 210 39 91 15 "Guide"
  45.     update demo.gc 2 Loading...
  46.     run 'multiview guis:docs/Gui4Cli.guide'
  47.     update demo.gc 2 'Read the Guide'
  48.  
  49. TEXT 12 54 195 15 "Run the File Manager" 40 BOX
  50.     gadid 3
  51. XBUTTON 210 54 91 15 "Dir.gc"
  52.     update demo.gc 3 Loading...
  53.     guiload guis:dir/dir.gc
  54.     update demo.gc 3 'Run the File Manager'
  55.  
  56. TEXT 12 69 195 15 "Search for Files" 40 BOX
  57.     gadid 21
  58. XBUTTON 210 69 91 15 "FSearch.gc"
  59.     update demo.gc 21 Loading...
  60.     guiload guis:g4c/fsearch/fsearch.gc
  61.     update demo.gc 21 'Search for Files'
  62.  
  63. TEXT 12 84 195 15 "Replace text in files" 40 BOX
  64.     gadid 22
  65. XBUTTON 210 84 91 15 "Rep.gc"
  66.     update demo.gc 22 Loading...
  67.     guiload guis:g4c/rep.gc
  68.     update demo.gc 22 'Replace text in files'
  69.  
  70. TEXT 12 99 195 15 "Read a Guide fast" 40 BOX
  71.     gadid 6
  72. XBUTTON 210 99 91 15 "FastRead"
  73.     update demo.gc 6 Loading...
  74.     guiload guis:tools/fastread/fastread.gc
  75.     update demo.gc 6 'Read a Guide fast'
  76.  
  77. TEXT 12 114 195 15 "Change the Palette" 40 BOX
  78.     gadid 5
  79. XBUTTON 210 114 91 15 "Palette"
  80.     update demo.gc 5 Loading...
  81.     guiload guis:tools/palette.gc
  82.     update demo.gc 5 'Change the Palette'
  83.  
  84. TEXT 12 129 195 15 "Look at the Tutorials" 40 BOX
  85.     gadid 4
  86. XBUTTON 210 129 91 15 "Tutorials"
  87.     update demo.gc 4 Loading...
  88.     guiload guis:docs/tutorials.gc
  89.     update demo.gc 4 'Look at the Tutorials'
  90.  
  91. TEXT 12 144 195 15 "Make a Gui.." 40 BOX
  92.     gadid 7
  93.  
  94. XBUTTON 210 144 91 15 "GuiEdit"
  95.     update demo.gc 7 Loading...
  96.     guiname = ''
  97.     ReqFile -1 -1 300 200 "Enter GUI Name:" LOAD guiname 'ram:'
  98.     if $guiname > ''
  99.        ifexists file $guiname    ; chose existing gui
  100.            ;
  101.        else
  102.            extract guiname file name
  103.            .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\nGuiOpen $name\n\nxOnClose\nGuiQuit $name\n\n'
  104.            copy env:.dummy $guiname
  105.        endif
  106.        guiload guis:tools/guiedit.gc
  107.        guiload $guiname
  108.     endif
  109.     update demo.gc 7 'Make a Gui..'
  110.  
  111.